Kettő hatványainak kiíratása előltesztelő (while) ciklussal (Hatvany.pas)

program Hatvany;
uses crt;
var i,a,n:integer;
BEGIN
   write('n:=');
   readln(n);
   i:=1;
   a:=1;
   while(i<=n) do begin
      writeln(a);
      a:=a*2;
      i:=i+1;
      end;
END.



Kettő hatványainak kiíratása for ciklussal (HatvanyV1.pas)

 program HatvanyV1;
uses crt;
var i,a,n:integer;
BEGIN
   write('n:=');
   readln(n);
   a:=1;
   for i:=1 to n do begin
      writeln(a);
      a:=a*2;
      end;
END.

 Kettő hatványainak kiíratása hátultesztelő (repeat - until) ciklussal (HatvanyV2.pas)

 program HatvanyV2;
uses crt;
var i,a,n:integer;
BEGIN
   write('n:=');
   readln(n);
   i:=1;
   a:=1;
   repeat
      writeln(a);
      a:=a*2;
      i:=i+1;
   until(i>n);
END.